Sub ũν࿹()

    Dim ð As Date

    ð = Now + TimeSerial(0, 1, 0)

    Application.OnTime ð, "ȳ޽"
    
    Do
    
        Application.StatusBar = Format(ð - Now, "hh:mm:ss")
        DoEvents
        
    Loop While Now < ð
    
    Application.StatusBar = False
    
End Sub